home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 February / Ahoy_Magazine_87-02_1987_Double_L.d64 / String Loader 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  732b  |  33 lines
  1. 0 rem << rr38-1 >>
  2. 1 rem ----------------------
  3. 2 rem  *** string loader ***
  4. 3 rem    rupert report #38
  5. 4 rem        c-64
  6. 5 rem
  7. 6 rem ----------------------
  8. 1000 m=49152 :rem hex $c000
  9. 1010 read b$
  10. 1020 if b$="xx" then 1080
  11. 1030 gosub 2050
  12. 1040 ck=ck+b :rem checksum
  13. 1050 poke m,b
  14. 1060 m=m+1
  15. 1070 goto 1010
  16. 1080 if ck<>4526 then print"data error" : stop
  17. 1090 print"string routine is loaded":end
  18. 1100 data 4c,08,c0,41,48,4f,59,21
  19. 1110 data e0,00,f0,06,20,d2,ff,ca
  20. 1120 data d0,fa,c0,00,f0,09,20,d2
  21. 1130 data ff,ca,d0,fa,88,d0,f7,60
  22. 1140 data xx
  23. 2000 rem   * =====c-64 only=======
  24. 2010 rem   replace line 1030 with
  25. 2020 rem        gosub 2050
  26. 2030 rem   (also change line 1000)
  27. 2040 rem  --  c-64 hex to decimal --
  28. 2050 h$=left$(b$,1) : l$=right$(b$,1)
  29. 2060 h=asc(h$)-48+7*(h$>"9")
  30. 2070 l=asc(l$)-48+7*(l$>"9")
  31. 2080 b=16*h+l
  32. 2090 return
  33.